events %>%
filter(state == "MI") %>%
group_by(cand_lastname) %>%
count(cand_lastname)
## # A tibble: 20 x 2
## # Groups: cand_lastname [20]
## cand_lastname n
## <chr> <int>
## 1 Bennet 1
## 2 Biden 2
## 3 Booker 3
## 4 Bullock 1
## 5 Buttigieg 1
## 6 Castro 3
## 7 de Blasio 1
## 8 Delaney 2
## 9 Gabbard 1
## 10 Gillibrand 3
## 11 Harris 4
## 12 Hickenlooper 1
## 13 Inslee 2
## 14 Klobuchar 4
## 15 O'Rourke 3
## 16 Ryan 1
## 17 Sanders 3
## 18 Warren 3
## 19 Williamson 1
## 20 Yang 2
#Data Visualisation
fig <- plot_ly(data=events, labels = ~cand_lastname, values = ~n)
fig <- fig %>% add_pie(hole = 0.6) #would make a pie chart, to make a donut chart add the hole
fig <- fig %>% layout(
title = "Events in Michigan by Candidate", showlegend = F,
xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
fig
```
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.